home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 14 / Big_Mouth_The_14_1997_-_Side_D.d64 / the main menu_bm (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 1 rem"          "bm staff eyes only!(NULL)
  2. 2 poke 808,234:poke 53280,0:poke 53281,0
  3. 4 fort=1 to 500:next
  4. 6 print"[147][155]       - the big mouth magazine -"
  5. 8 fort=1 to 2000:next
  6. 10 print"[147]"
  7. 15 fort=1 to 500:next
  8. 20 printtab(7)"the big mouth - main menu"
  9. 30 print"a - super dominoes brothers  test 1"
  10. 31 print"b - super dominoes brothers  test 2"
  11. 32 print"c - super dominoes brothers  test 3"
  12. 33 print"d - super dominoes brothers  test 4"
  13. 34 print"e - super dominoes brothers  test 5"
  14. 35 print"f - super dominoes brothers instructions"
  15. 36 print"[145]g - arcade compilation"
  16. 37 print"h - solitaire"
  17. 50 print"pick a program to load (a-h) ?"
  18. 55 get a$:if a$="" then 55
  19. 60 a=asc(a$):if a-64<1 or a-64>8 then 55
  20. 65 if a-64=8 then 108
  21. 70 forx=49152 to 49170:ready:poke x,y:next x
  22. 75 print"  loading your selection - please wait"
  23. 76 sys 49152
  24. 77 data 120,169,013,141,040,003,169,192
  25. 78 data 141,041,003,088,096,238,032,208
  26. 79 data 076,237,246
  27. 80 on a-64 goto 101,102,103,104,105,106,107
  28. 100 :
  29. 101 load"sp.dominoes bros",8,1
  30. 102 print"code: 3521":load"super db  test 2",8,1
  31. 103 print"code: 8191":load"super db  test 3",8,1
  32. 104 print"code: 0975":load"super db  test 4",8,1
  33. 105 print"code: 7708":load"super db  test 5",8,1
  34. 106 load"instructions.sdb",8,1
  35. 107 load"arcade compil/ba",8,1
  36. 108 print"load"chr$(34)"   solitaire    "chr$(34)",8":print"run[145][145][145][145][145][145][145][145]"
  37. 109 new
  38.